Imports System.Xml
Imports System.Data.SqlClient
Public Class dChequesPropios
    Public Function Existe(ByVal CodigoChequera As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        If CodigoChequera <> 0 Then
            Parametros.Add(New SqlParameter("pECodigoChequera", CodigoChequera))
        End If
        Return (dConexion.Consultar("STORE_TblChequePropioBuscarFiltrado", Parametros).Tables(0).Rows(0).ItemArray(0) = 1)
    End Function
    Public Function Insertar(ByVal CodigoCheque As String, _
                            ByVal CodigoChequera As String, _
                            ByVal CodigoProveedor As String, _
                            ByVal Importe As String, _
                            ByVal FechaVence As String, _
                            ByVal FechaEmision As String, _
                            ByVal Observacion As String, _
                            ByVal ANombreDe As String, _
                            ByVal Estado As String) As Boolean



        Dim Parametros As ArrayList = New ArrayList

        If CodigoCheque <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoCheque", CodigoCheque))
        End If
        If CodigoChequera <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoChequera", CodigoChequera))
        End If
        If CodigoProveedor <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoProveedor", CodigoProveedor))
        End If
        If Importe <> "" Then
            Parametros.Add(New SqlParameter("@pEImporte", CDbl(Importe)))
        End If
        If FechaVence <> "" Then
            Parametros.Add(New SqlParameter("@pEFechaVence", FechaVence))
        End If
        If FechaEmision <> "" Then
            Parametros.Add(New SqlParameter("@pEFechaEmision", FechaEmision))
        End If
        If Observacion <> "" Then
            Parametros.Add(New SqlParameter("@pEObservacion", Observacion))
        End If
        If ANombreDe <> "" Then
            Parametros.Add(New SqlParameter("@pEANombreDe", ANombreDe))
        End If
        If Estado <> "" Then
            Parametros.Add(New SqlParameter("@pEEstado", Estado))
        End If


        Return dConexion.ABM("STORE_TblChequePropioAlta", Parametros)
    End Function
    Public Function Eliminar(ByVal IdCheque As String, _
                            ByVal Observaciones As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        If IdCheque <> 0 Then
            Parametros.Add(New SqlParameter("@pEIdCheque", IdCheque))
        End If

        If IdCheque <> 0 Then
            Parametros.Add(New SqlParameter("@pEObservaciones", Observaciones))
        End If

        Return dConexion.ABM("STORE_TblChequePropioAnular", Parametros)
    End Function
    Public Function Modificar(ByVal IdCheque As String, _
                                ByVal CodigoChequera As String, _
                                ByVal Importe As String, _
                                ByVal FechaVence As String, _
                                ByVal FechaEmision As String, _
                                ByVal Observacion As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        If IdCheque <> 0 Then
            Parametros.Add(New SqlParameter("@pEIdCheque", IdCheque))
        End If
        If CodigoChequera <> 0 Then
            Parametros.Add(New SqlParameter("@pECodigoChequera", CodigoChequera))
        End If
        If Importe <> 0 Then
            Parametros.Add(New SqlParameter("@pEImporte", Importe))
        End If
        If FechaVence <> 0 Then
            Parametros.Add(New SqlParameter("@pEFechaVence", FechaVence))
        End If
        If FechaEmision <> 0 Then
            Parametros.Add(New SqlParameter("@pEFechaEmision", FechaEmision))
        End If
        If Observacion <> 0 Then
            Parametros.Add(New SqlParameter("@pEObservacion", Observacion))
        End If
        Return dConexion.ABM("STORE_TblChequePropioMODIFICAR", Parametros)
    End Function
    Public Function BuscarFiltrado(ByVal IdCheque As String, _
                                    ByVal CodigoChequera As String, _
                                    ByVal Importe As String, _
                                    ByVal FechaVence As String, _
                                    ByVal FechaVenceMIN As String, _
                                    ByVal FechaVenceMAX As String, _
                                    ByVal FechaEmision As String, _
                                    ByVal FechaEmisionMIN As String, _
                                    ByVal FechaEmisionMAX As String, _
                                    ByVal Observacion As String) As DataSet
        Dim Parametros As ArrayList = New ArrayList
        If IdCheque <> "" Then
            Parametros.Add(New SqlParameter("@pEIdCheque", IdCheque))
        End If
        If CodigoChequera <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoChequera", CodigoChequera))
        End If
        If Importe <> "" Then
            Parametros.Add(New SqlParameter("@pEImporte", CDbl(Importe)))
        End If
        If FechaVence <> "" Then
            Parametros.Add(New SqlParameter("@pEFechaVence", FechaVence))
        End If

        If FechaVenceMIN <> "" Then
            Parametros.Add(New SqlParameter("@pEFechaVenceMIN", FechaVenceMIN))
        End If

        If FechaVence <> "" Then
            Parametros.Add(New SqlParameter("@pEFechaVenceMAX", FechaVenceMAX))
        End If

        If FechaEmision <> "" Then
            Parametros.Add(New SqlParameter("@pEFechaEmision", FechaEmision))
        End If

        If FechaEmisionMIN <> "" Then
            Parametros.Add(New SqlParameter("@pEFechaEmisionMIN", FechaEmisionMIN))
        End If

        If FechaEmisionMAX <> "" Then
            Parametros.Add(New SqlParameter("@pEFechaEmisionMAX", FechaEmisionMAX))
        End If

        If Observacion <> "" Then
            Parametros.Add(New SqlParameter("@pEObservacion", Observacion))
        End If
        Return dConexion.Consultar("STORE_TblChequePropioBuscarFiltrado", Parametros)
        'el Store esta preparado para recibir los parametros para buscar importe mayorm e importe menor a
    End Function
    Public Function ObtenerNumero(ByVal CodigoChequera As String) As DataSet
        Dim Parametros As ArrayList = New ArrayList

        If CodigoChequera <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoChequera", CodigoChequera))
        End If

        Return dConexion.Consultar("STORE_TblChequePropioUltimoNumero", Parametros)
    End Function
End Class

